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PREFACE 



INDUSTRY STANDARDS 



BOOK ORGANIZATION 



RELATED MATERIAL 



VS COBOL II 



This publication contains information to aid data systems 
planners and analysts in evaluating the IBM program products 
OS/VS COBOL Compiler and Library. 

COBOL ( common Business Oriented L.anguage) is an English-like 
programming language used for commercial data processing. It is 
developed by the Conference On DAta SYstems L.anguage (CODASYL). 
|n the USA, the standard of the language is American National 
Standard COBOL» X3. 23-1974* as approved by the American National 
Standards Institute (ANSI). 



The OS/VS COBOL Release 2.4 Compiler and Library is designed 
according to the specifications of the following industry 
standards* as understood and interpreted by IBM as of April 
1976: 

• The highest level of American National Standard COBOL* 

X3. 23-1974 (excepting the Report Ulriter module). American 
National Standard COBOL* X3. 23-1974 is compatible with and 
identical to International Organization for 
Standardization/Draft International Standard (ISO/DIS) 
1989-COBOL. 

• The highest level of American National Standard COBOL* 

X3. 23-1968. American National Standard COBOL* X3. 23-1968, 
is compatible with and identical to ISO/R 1989-1972 
Programming Language COBOL. 

A number of IBM extensions are also implemented. 



Included in this manual are brief descriptions of the OS/VS 
COBOL Compiler and Library features* information on 
compatibility* and system requirements. The manual is intended 
as an aid to evaluation and planning for use of the product; it 
i s not intended to be used as a specifications manual. 
Specifications for the OS/VS COBOL program product are given in 
Program Product Specifications? OS/VS COBOL Compiler and 
Library * GC28-6472. 



IBM OS/VS COBOL Compiler and Library Programmer's Guide * 
SC28-6483 

IBM VS COBOL for OS/VS * GC26-3857 

IBM OS COBOL Interactive Debug and (TSO) COBOL Prompter* General 
Information. GC28-6454 



For information about VS COBOL II, see VS COBOL II General 
Information. GC26-4042. 
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SUMMARY OF AMENDMENTS 



RELEASE 2.4> AUGUST 1983 



NEU PROGRAMMING FEATURE 



Information about the tllGR compiler option has been added. MIGR 
flags major COBOL language elements that are no longer supported 
or are supported differently by the VS COBOL II Compiler # 
Program Number 5668-958. 



RELEASE 2> SEPTEMBER 1976 



NEU PROGRAMMING FEATURE 



The text has been updated to reflect neM OS/VS COBOL features^ 
Mhich include^ 

Expanded Language Capabilities in support of the 1974 
American National Standard COBOL 

Enhanced VSAM Support 

Expanded Physical Sequential Files through QSAM 

Added Communication Support 

Expanded Library Facilities 

Usei — Defined Collating Sequences for entire programs 

Federal Information Processing Standard for either the 1968 
or 1974 American National Standard COBOL 
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OS/VS COBOL OVERVIEU 



This manual describes the OS/VS COBOL Release 2.4 Compiler and 
Library* an IBM program product that offers expanded language 
capabilities through support of 197<t Standard COBOL. OS/VS 
COBOL also provides advanced programming facilities meant to 
reduce program development time and to aid in increasing 
programmer productivity. OS/VS COBOL Compiler features are' 

Expanded Language Capabilities: The OS/VS COBOL Release 2 
compiler accepts source language in support of the 1974 
Standard. It also accepts source language in support of the 
1968 Standard. IBM extensions are also supported. The 
additional language capabilities make possible programming 
applications not feasible previously. 

Virtual System Support, through OS/VSl and 0S/VS2, and the CMS 
component of VM/370, makes use of the performance improvements 
and large storage capacity of the Virtual Systems. 

Advanced Program Applications are possible with these features*. 

• Enhanced VSAM Support — VSAM is a high-performance VS access 
method with a high degree of data security. The following 
file organizations are supported^ 

— VSAM Sequential Files — using entry sequenced data sets. 

— VSAM Indexed Files — using key sequenced data sets* and, 
addi ti onally» for Release Z, alternate indexes for 
record retrieval. 

— VSAM Relative Record Files — using relative record data 
sets. 

• Expanded Physical Sequential Fi le Capabilities — through 
QSAM» the following processing capabilities are available: 

— Files can be extended. 

— Input and/or output requests can be tested for success 
or failure. 

— The record area is available when the file is opened. 

— Logical page formatting of the printed logical output 
page can be specified through the source program. 

• Added Communication Support — with the following features 
available through OS/VS COBOL: 

— Automatic scheduling of the COBOL Communication program 
upon demand. 

— Queues made available/unavailable under COBOL program 
control. 

— Multiple destinations can be specified. 

• Expanded Library Facilities — with the following features: 

— References to library members are allowed at any point 
in the COBOL program. 

— Multiple libraries can be specified. 

— Replacement library text can be a literal* a word, or 
any COBOL character string(s). 
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• Pouerful Data Manipulation — through the folloMirig COBOL 
statementsJ 

— INSPECT Statement — counts and/or replaces one or more 
characters in a data item; allous full or partial 
initialization of such items. 

STRING/UNSTRING Statements: — multiple subfields can be 
combined into a single field; a single field can be 
separated into multiple subfields. 

• Extended Computational Facilities — allokis multiple receiving 
fields in any arithmetic statement. 

• User-Defined Collating Sequences — can be specified for an 
entire program* for physical sequential data files* or for 
Sort/Merge comparisons. 

• Merge Facility — The MERGE verb enables two or more 
identically sequenced input files to be combined into a 
single output file by specifying a set of keys. Both 
standard sequential and sequentially accessed VSAM files can 
be designated as input or output. 

• Svstem/370 Device Support — including optical character 
readers and large-capacity high-speed disk facilities. 
High-performance System/370 devices also speed up execution 
and alloM advanced applications. 

• Dynamic Subprogram Linkage — at execution time* user 
subprograms can be fetched and loaded dynamically. The 
storage assigned to such a subprogram can also be released 
Mhen the subprogram is no longer needed. 

Program Development Aids are provided through COBOL language 
that eases former programming rules* through high-level 
debugging features* and through standardization aids. 

• Eased Programming Rules — give added COBOL capabilities and 
make program development simpler: 

— Table handling rules alloui mixed indexes and literal 
subscripts* as Mell as negative literals in the SET 
statement. 

— Level 77 items in Data Division entries can folloM level 
01 items. 

— Relaxed punctuation rules. 

— Page ejecting comment lines simplify page-by-page format 
control of the source program listing. 

• COBOL Source Program Debug Language — alloMS selective 
monitoring of file-names* cd-names* procedure-names* and 
identifiers. Both a compile-time suiitch and an object-time 
SMitch are available to activate or deactivate the debugging 
language. 

• Federal Information Processing Standard (FIPS) 

Flagqer — ensures that OS/VS COBOL programs can be Mritten to 
conform to a selected level of either the 1972 or the 1975 
Federal Information Processing Standard. 

• Migration Flagging — allows the COBOL user to identify 
significant OS/VS COBOL language that is either no longer 
supported or is supported differently by the VS COBOL II 
compiler. 
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• Interactive Capabilitie s — under 0S/VS2 TSO or VM/370 CMS, 
compiler output can be directed to a terminal, and COBOL 
background debugging facilities are available at a terminal. 
(In addition, the TSO COBOL Prompter Program Product is 
available to the TSO COBOL user, and the OS COBOL 
Interactive Debug Program Product is available to the TSO or 
CMS COBOL user. ) 

• UIHEN-COMPILED Special Register — provides a means of 
associating a compilation listing with both the object 
program and the output produced at execution time. 

• L i ster Faci li tv — provides specially formatted listing with 
embedded cross-references for increased intelligibility and 
ease of use. Reformatted source deck is available as an 
opt i on . 

• Verb Prof i les — facilitates identifying and locating verbs in 
the COBOL source program. Options provide verb summary or 
verb cross-reference listing which includes verb summary. 

• Execution-Time Statistics — maintains a count of the number 
of times each verb in the COBOL source program is executed 
during an individual program execution. 

• Background Symbolic Debug — during program execution, 
COBOL-formatted snapshots and maps of the Data Division can 
be obtained, either at specified points during execution or 
at abnormal termination. Any number of debugging runs can 
be executed without recompi lat i on. No COBOL source language 
changes are needed. 

• Flow Trace — shows program flow up to the point of abnormal 
termination. The path of execution within and between 
user-specified modules can be traced. No COBOL source 
changes are needed. 

• Syntax-Checking Compilation — reduces compile time 
significantly by scanning the source code for syntax errors 
but (conditionally or unconditionally) produces no other 
compiler output. 

• Statement Number Option — provides information about the 
COBOL statement being executed at abnormal termination. 

Efficient Object-Time Performance can be achieved with OS/VS 
COBOL through the following features. 

• Optimized Object Code — can reduce generated Procedure 
Division code. Programs are divided into 4K-byte procedure 
blocks. Register assignment is optimized. 

• COBOL Library Management Facility — allows COBOL object 
programs running in separate regions or partitions to save 
virtual storage by sharing COBOL library subroutine modules. 

• Dynamic Subprogram Linkage — gives object-time control of 
virtual storage resources. Uhen a subprogram is no longer 
needed, the storage it occupies can be freed. 

• System/370 Instruction Generation — System/370 instructions 
save object program space and speed up execution. 

• Standard Block Specification — is allowed at object time. 
Use of the Fixed Standard Block option (particularly for 
direct access storage devices having the Rotational 
Positional Sensing feature) results in improved input/output 
performance. 
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Productive Compile-Ti me Performance is easy to achieve uith 
OS/VS COBOL. The following feature optimizes performance^ 

• Speedy Sorted Cross-R e f erence — alphabetized cross-reference 
listings make it easier to find user-specified names. 
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OS/VS COBOL COMPILER FEATURES 



The OS/VS COBOL Compiler is a program product that offers the 
follouing capabilities: expanded language capabi 1 i ties# advanced 
program appl i cati ons» program development aids* efficient 
object-time performance^ and productive compile-time 
performance^ all of uihich are described on the follouiing pages. 



EXPANDED LANGUAGE CAPABILITIES 



The OS/VS COBOL Compiler accepts source language in support of 
the 1974 COBOL Standard. Through this language supports the 
programmer can make use of the folloMing programming 
advancements •• 

Enhanced VSAM Support 

Expanded Physical Sequential File Capabilities 

Added Communication Support 

Expanded Library Facility 

PoMerful Data Manipulation 

Extended Computational Facilities 

User-Defined Collating Sequences 

Eased Programming Rules 

COBOL Source Program Debug Language 

Each of these features is separately described on the folloMing 
pages. 

In addition^ the Compiler accepts source language in support of 
the complete 1968 Standard — including the Report Writer. 

IBM extensions (such as passuords for file security) are also 
supported. 



VIRTUAL SYSTEM SUPPORT 



OS/VS COBOL makes available the advantages of the OS/VSl and 
0S/VS2 systems^ the high-performance VSAM access method/ and 
(with 0S/VS2) the advantages of TSO — including the ability to 
use the TSO COBOL Prompter and OS COBOL Interactive Debug 
Program Products. In addition^ powerful System/370 instructions 
are generated^ and the performance of the advanced System/370 
devices exploited. OS/VSl and 0S/VS2 can operate as independent 
systems* or under control of VM/370. 

OS/VS COBOL also operates^ with restrictions* under control of 
the CMS component of VM/370 (see the CMS Compatibility section 
for further information). 
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ADVANCED PROGRAM APPLICATIONS 



ENHANCED VSAM SUPPORT 



VSAM is a high-performance access method of OS/VSl and 0S/VS2 
for use with direct access storage. VSAM offers high-speed 
retrieval and storage of data> flexible data organization* ease 
of use — including simplified job control statements/ data 
protection against unauthorized access* central control of data 
management functions* cross-system compatibility* device 
independence (freedom from consideration of block sizes* control 
information* record deblocking* etc.)* the ability to monitor 
the execution status of each input/output request* and ease of 
conversion from other access methods. COBOL supports indexed 
files with alternate indexes (through VSAM KSDS capabilities)* 
sequential files (through VSAM ESDS capabilities)* and relative 
files (through VSAM RRDS capabilities). VSAM provides. a 
multifunction utility program known as Access Method Services to 
define a VSAM data set* to load records into it* to convert an 
existing indexed or sequential data set to VSAM format* and to 
perform other tasks as well. VSAM allows key-sequenced* 
entry-sequenced* and relative record data sets. 

In a key-sequenced data set (KSDS)* records are stored in the 
ascending collating sequence of an embedded prime record key 
field. Records can be retrieved sequentially in prime key 
sequence or alternate key sequence* they can also be retrieved 
randomly according to the value of the desired key. VSAM uses 
the contents of the key field and optional free space (space in 
the data set not occupied by data) to insert new records in 
their key sequence. Using dynamic access* the programmer can 
specify sequential and/or random processing. More than one 
record in a file may have the same value for the record field 
associated with the alternate key by specifying the DUPLICATES 
phrase. 

In an entry-sequenced data set (ESDS)* the records are stored in 
the order in which they are presented for inclusion in the data 
set. New records are stored at the end of the data set. In 
COBOL* record retrieval must be sequential. 

In a relative record data set (RRDS)* the records are stored in 
ascending order of relative record numbers* and this data set 
provides the capability to access a mass storage file 
sequentially or randomly. Each record in a relative file is 
uniquely identified by an integer number representing the 
record's logical ordinal position in the file. 

INDEXED FILE PROCESSING*. A VSAM indexed (key-sequenced) file is 
ordered in the ascending sequence of its prime record key* which 
is embedded in the record and whose value must not change. 
Embedded alternate record keys can be specified for retrieval in 
another sequence. Records can be processed sequentially and/or 
randomly* and can be fixed or variable in length. Files can be 
extended. 

In sequential access* records are accessed in the ascending 
order of their record key values or alternate record key values. 

In random access* the sequence of record retrieval is controlled 

by the programmer. The desired record is accessed through the 

value placed in its RECORD KEY or ALTERNATE RECORD KEY data 
item. A full or partial key value can be used. 

In dynamic access* records are processed sequentially or 
randomly* depending on the specific input/output request. 
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Performance Considerations: In a VSAM data set, inserted records 
are stored and addressed the same way as original records; thus» 
access speed after many insertions is equivalent to access speed 
before insertions. Free space allows efficient automatic 
reorganization of the data set by the access method; thus, there 
is seldom need to reorganize the data set offline. 

SEQUENTIAL FILE PROCESSING: In a VSAM sequential 
(entry-sequencfed) file, data is stored in the order in which it 
is received. In COBOL/ records can be retrieved only in the 
same order in which they were stored. There is no key field 
when the file is extended. New records are always stored at the 
end of the data set. Records can be fixed or variable in 
length. 

Programming Considerations: A record cannot be deleted from the 
file; however, its space can be reused for a record of the same 
length. If file reorganization becomes necessary, then a new 
file must be created, using records from the existing file. 

RELATIVE RECORD FILE PROCESSING: In VSAM relative files (VSAM 
RRDS), the records are stored and retrieved in the order of 
their relative record numbers. Storage and retrieval can be 
sequential, random, or dynamic. 



EXPANDED PHYSICAL SEQUENTIAL FILE CAPABILITIES 



With the OPEN EXTEND option, the user is able to open the file 
for output operations. When an OPEN EXTEND statement is 
executed, the file is prepared for the addition of records 
immediately following the last record in the file. 

Through the FILE STATUS clause, a value is placed into the 
specified two-character data item to indicate the status of a 
given input/output operation. 

The LINAGE clause specifies the depth of a logical page as a 
line number, and, optionally, specifies the line number at which 
the footing area begins, as well as the top and bottom margins 
of the logical page. 



ADDED CONNUNICATION SUPPORT 



The Communication feature allows the COBOL programmer to access, 
process, and create messages and portions of messages, and to 
control the flow of messages through a communication network. 
Communication with local and remote communications devices is 
through a Message Control System (MCS). 

The Communication feature also allows the OS/VS COBOL user to 
create device-independent message processing programs for 
communication applications. 

In Communication applications, data flow into the s^rstem is 
random and at relatively low speeds. Data in the system exists 
as messages from remote stations, or as messages generated by 
internal programs. Once delivered to the system, however, 
messages can be processed at computer speeds. 

The MCS acts as the logical interface between the entire network 
of communications devices and the COBOL program, in much the 
same manner as the operating system acts as an interface between 
the COBOL object program and conventional input/output devices. 
The MCS also performs device-dependent tasks, such as character 
translation from terminal code to and from computer code 
(EBCDIC), and insertion of control characters. Thus, the COBOL 
Communications program is device-independent. 

The MCS has two constituent parts: A user-written 
Telecommunications Access Method (TCAM) Message Control Program 
(MCP) coded in assembly language, and COBOL communications 
feature object-time subroutines. 
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To store messages until they can be processed^ the MCS uses 
message queues^ Mhich are similar to sequential data sets. The 
queues act as buffers for both the COBOL Communications program 
and the remote stations. That is# the COBOL Communications 
program accepts messages from MCS queues^ and places messages 
into an MCS queue as if the queues uere sequential files in a 
conventional COBOL program. To the COBOL program* the MCS queue 
from which it accepts messages is logically an input queue ; the 
queue into which it places messages is logically an output 
queue . In this discussion, these terms are used with these 
meanings. A COBOL program need not accept or transmit complete 
messages from/to the MCS; portions of messages* known as message 
segments * may also be processed. 

A message can be logically subdivided into message segments* 
which are delimited by End of Segment Indicators (ESI). A 
message is delimited from the next message by an End of Message 
Indicator (EMI). A group of messages can also be delimited from 
another group by an End of Group Indicator (EGI). The presence 
of these logical indicators is recognized and specified both by 
the MCS and the COBOL program; however, no indicators are 
included in the message text processed by COBOL programs. For 
incoming messages* the associated end indicators are identified 
in the CD entry area. For outgoing messages* the COBOL program 
specifies the end indicators to be associ ated. wi th the message. 

The interface between COBOL and the MCS i s established through 
the Communication Description (CD) entries in the Communication 
Section. If input communication operations are to be performed* 
there must be at least one CD entry for input; if output 
communication operations are to be performed* there must be at 
least one CD entry for output. Multiple input and/or output CD 
entries are allowed. 

Each CD entry is an implicitly defined fixed storage area into 
which information about messages i s placed for use by both the 
COBOL program and the MCS. 

The following five statements are used by the COBOL object 
program in the Procedure Division to request MCS services^ 

ENABLE allows data transfer betwwen the MCS and the 
communication network. 

DISABLE prevents data transfer between the MCS and the 
communication network. 

RECEIVE causes data in an MCS input queue associated with a 
specified queue structure to be passed to the COBOL object 
program. 

SEND causes data associated with the COBOL object program to 
be passed to one or more MCS output queues. 

ACCEPT MESSAGE COUNT causes the MCS to return to the COBOL 
object program the number of complete messages in the MCS 
input queues associated with the specified queue structure. 

A COBOL Communication program may be scheduled for execution 
through job control language. It may also be scheduled for 
execution by the MCS. 

Figure 1 on page 10 illustrates the COBOL Communication 
envi ronment. 

Programming Considerations^ For input* names identifying queues 
in the input CD entry must be equated through the DD statement 
to names used in the MCS. For output* the names in the output 
CD entry that identify symbolic destinations must be known to 
the MCS. The system provides a single 200-character buffer for 
use by all queues; the buffer size can be increased or 
decreased. This does not restrict the amount of data the COBOL 
program can request. 
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The user can test a COBOL Communication program by using 
physical sequential data sets and linking to BSAM instead of to 
TCAM. In generals this is accomplished through a JCL change 
only; the COBOL program need not be changed. 



EXPANDED LIBRARY FACILITIES 



The COPY statement provides a COBOL user with the ability to 
insert prewritten COBOL entries* which reside in a library or 
libraries* into a COBOL source program at compile time. 

Library text associated with a text-name is copied into the 
source program* logically replacing the entire COPY statement 
beginning with the word COPY and ending with the period. Uhen 
the REPLACING option is not specified* the library text is 
copied unchanged. Replacement text can be a literal* a word* or 
any COBOL character string(s). 

A COPY statement may appear in the source program anywhere a 
character string or a separator may appear; however* a COPY 
statement must not be specified within a COPY statement. 



POUERFUL DATA MANIPULATION 



The INSPECT statement provides the user the ability to specify 
that a character* or group(s) of characters in a data item are 
to be counted* replaced* or counted and replaced. INSPECT 
dynamically determines the length of a data item and initializes 
a data item to zeros or spaces partially or completely. 

STRING and UNSTRING statements give the OS/VS COBOL user greater 
flexibility in data manipulation. STRING gives the programmer 
the ability to put together the partial or complete contents of 
two or more data items in one single data item; UNSTRING causes 
contiguous data in a sending field to be separated and placed 
into multiple receiving fields. In either case* the sending 
field(s) can be specified as containing one or more 
delimiters — characters which terminate the data transfer for the 
field* but are not themselves transferred. Delimiters can be 
specified at compile time or at object time. If the execution 
of the statement completely fills the receiving field(s) before 
the end of the sending field(s) is reached* an overflow 
condition exists; provision is made for an ON OVERFLOUI exit. 



OS/VS COBOL Compiler Features 9 



Advanced Program Applications 



COBOL 

Program 



Message Control 
System (MCS) 



Communication 
Network 



Queue Structure 
Definitions 



Input 
Queues 





< 

i 










RELEIVE -^ 
















ACCEPT MESSAGE 


• 
• 
• 


COUNT 








ENABLE /DISABLE 

INPUT (without-* 

TERMINAL) 









ENABLE/DISABLE 
INPUT TERMINAL 




Output 
Queues 



Symbolic 
Destinations 



SEND 




ENABLE/DISABLE. 
OUTPUT 



Note: Flow of Data =• 



Control = 



Figure 1. COBOL Communication Environment 
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EXTENDED COMPUTATIONAL FACILITIES 



UIhGn the GIVING option is specified^ the value of the identifier 
that folIoMS the uiord GIVING is set equal to the calculated 
result of the arithmetic operation. 

The ADD, SUBTRACT, MULTIPLY, and DIVIDE arithmetic statements 
are used for computations and can be coded uith GIVING and a 
series of identifiers. These arithmetic statements allou 
multiple receiving fields. 

The COMPUTE statement allous the user to assign one or more data 
items the value of an arithmetic expression. COMPUTE alloNS the 
user to combine arithmetic operations without the restrictions 
on receiving data items imposed by the rules for the ADD, 
SUBTRACT, MULTIPLY, and DIVIDE statements. 



USER-DEFINED COLLATING SEQUENCES 



MERGE FACILITY 



The User-Defined Collating Sequences can be specified for an 
entire program, for physical sequential data files, or for 
Sort/Merge comparison. 

The COLLATING SEQUENCE clause allows the user to specify any 
number of alphabets in the Environment Division, any one of 
which may then be used as the Program Collating Sequence (for 
nonnumeric compares). Also, a different SORT/MERGE collating 
sequence may be specified for each SORT or MERGE statement. The 
file description statement allows a CODE-SET clause which names 
an alphabet defined as NATIVE (EBCDIC) or STANDARD-1 (ASCII); 
but not user defined. 



The MERGE verb allows the COBOL user to combine two or more 
identically ordered input files into one output file according 
to embedded key(s) in the record. The MERGE verb uses the IBM 
Program Product OS/VS Sort/Merge (Program Number 5740-SMl). 
Special processing of merged records can also be specified. 
More than one MERGE statement can be executed in one program. 
Both standard sequential files and sequentially accessed VSAM 
files can be designated as input or output. 



SYSTEM/370 DEVICE SUPPORT 



In OS/VS COBOL, the actual device upon which a file resides is 
resolved at object time through JCL. This means that any valid 
System/370 OS/VS device whose functions correspond to COBOL 
language capabilities can be used by the COBOL program. Such 
device specification, in most cases, is not apparent to the 
COBOL program. However, special considerations apply to the 
following: 

3886 Optical Character Reader: This general purpose online 
device satisfies a broad range of data entry requirements. The 
device scans documents line-by-line and the contents are 
transmitted line-by-line to the processor. Ulhen the entire 
document has been processed, it is ejected. 

OS/VS COBOL supports the IBM 3886 Optical Character Reader 
through object-time library subroutines. Functions provided 
include: opening and closing the file, reading, checking, 
controlling the document, and loading a new format record. 
After each I/O request, a code is returned to the program so 
that any exceptional condition can be detected. The OS/VS COBOL 
library contains the object-time subroutine. 

Systein/370 Multifunction CartI Devices: os/VS COBOL supports the 
combined function processing available through these devices. 
Combined functions available are: read/punch, read/print. 



OS/VS COBOL Compiler Features 11 



read/punch/print » and punch/print. The functions must be 
performed in the order shown. The print function may use the 
AFTER ADVANCING or AFTER POSITIONING options of the WRITE 
statement. 

All devices supported by OS Full American National Standard 

COBOL Version 4 are supported by OS/VS COBOL. These include, 

among others: IBM 3504/3505 Card Reader (with OMR/RCE) and IBM 
3410/3420 Magnetic Tape Units. 



DYNAMIC SUBPROGRAM LINKAGE 



Through the CALL and CANCEL statements, OS/VS COBOL allows 
static or dynamic loading and deletion of subprograms. Through 
the FARM field of the EXEC job control statement invoking the 
compiler, the user can specify the mode (static or dynamic) of 
the CALL 1 i teral statement. The CALL i dentif i er statement is 
always dynamic. 

When the CALL statement is static, the main COBOL program and 
all invoked subprograms must be part of the same load module. 
Thus, when a subprogram is called it is already resident in 
storage, and a branch to it occurs. When subsequent CALL 
statements are executed, the subprogram is entered in its 
last-used state. If alternate entry points are specified, then 
any CALL statement to the subprogram can select any of the 
alternate entry points at which to enter the subprogram. 

When the CALL statement is dynamic, the COBOL user can control 
the loading of subprograms; that is, the called subprogram is 
not link edited with the main program. At execution time, the 
subprogram is loaded only if and when it is called. 

Each subprogram invoked with a dynamic CALL statement may be 
part of a different load module, which is a member of the system 
link library or of a usei — supplied private library. The 
execution of the dynamic CALL statement to a subprogram that is 
not currently resident in storage results in the loading of that 
subprogram from secondary storage into the region/partition 
containing the main program, and a branch to the subprogram. 

Thus, the first dynamic CALL to a subprogram obtains a fresh 
copy of the subprogram. Subsequent calls to the same subprogram 
(either by the original caller or by any other subprogram within 
the same region or partition) result in a branch to the same 
copy of the subprogram in its last-used state. If the ON 
OVERFLOW option is specified, and there is not enough storage 
available to accommodate the called subprogram, the ON OVERFLOW 
imperative-statement is executed. 

However, when a CANCEL statement is issued for that subprogram, 
the storage occupied by the subprogram is freed, and a 
subsequent CALL acts as though it were the first. A CANCEL 
statement referring to a called subprogram may be issued by a 
program other than the original caller. 

When dynamic subprogram linkage is used, the COBOL Library 
Management Facility must also be used by the main program and 
all subprograms in one region/partition. Otherwise, multiple 
copies of library subroutines may be resident at one time and 
cause unpredictable results. 

User subprograms that are to be invoked at object time with the 
dynamic CALL statement must be members of the system link 
library or of a user-supplied private library. For the CALL 
statement to function as defined by the 1974 Standard, user 
subprograms must be link-edited as nonreentrant and 
nonseri ally- reusable. 
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PROGRAM DEVELOPMENT AIDS 



EASED PROGRAMMING RULES 



Table Handling allouis literal subscripts to be mixed uiith 
index-names when referring to a table item. Negative literals 
may be used in the SET statement. The SET statement establishes 
reference points for table handling operations by placing values 
associated Mith table elements into indexes associated Mith 
index-names. 

Level 77 items in the Data Division under the Working-Storage 
Section can follow level 01 items. 

Relaxed punctuation rules allow a space before a periods commas 
or semicolon^ and a space may immediately precede or may 
immediately follow a parenthesis (except in PICTURE). 

AlsOf a slash in column 7 causes that line to be treated as a 
comments and starts the comment on a new page. 



COBOL SOURCE PROGRAM DEBUG LANGUAGE 



The Debugging features allow the user to specify conditions 
under which data items or procedures are to be monitored during 
program execution. 

COBOL language elements that implement the Debugging features 
are-* a compile-time switch (WITH DEBUGGING MODE), an object-time 
switch, USE FOR DEBUGGING Declarative, a special register 
DEBUG-ITEM, and Debugging lines (which can be written anywhere 
after the Object Computer paragraph in the Environment, Data, 
and Procedure Divisions). 

Compile-Time Switch - — in the Source-Computer paragraph of the 
Configuration Section, the WITH DEBUGGING MODE clause acts as a 
compile-time switch. 

The WITH DEBUGGING MODE clause indicates that all Debugging 
sections and all Debugging lines are to be compiled. If this 
clause is not specified, all Debugging lines and sections are 
compiled as if they were comment lines. 

Object-Time Switch — dynamically activates the Debugging code 
generated when WITH DEBUGGING MODE is specified. 

The USE FOR DEBUGGING Declarative identifies the items in the 
source program that are to be monitored by the associated 
declarative procedure. 

The DEBUG-ITEM special register provides information about the 
conditions causing Debugging section execution, and can be 
referenced only in a Debugging Declarative. 

A Debugging line is any line in a source program with a D coded 
in column 7, the continuation area. 



FEDERAL INFORMATION PROCESSING STANDARD (FIPS) FLAGGER 



The 1975 Federal Information Processing Standard (FIPS) is a 
compatible subset of American National Standard COBOL, 
X3. 23-1974, and the 1972 Federal Information Processing Standard 
(FIPS) is a compatible subset of American National Standard 
COBOL, X3. 23-1968. FIPS recognizes four language levels-low, 
low-intermediate, high-intermediate, and full. When the FIPS 
Flagger is used, source clauses and statements that do not 
conform to FIPS are identified. This assists the user in 
creat i ng- OS/VS COBOL programs which conform to the specified 
level . 
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MIGRATION FLAGGING 



The Federal Information Processing Standard (FTPS) COBOL flagger 
issues messages identifying nonstandard elements in a COBOL 
source program. The FIPS flagger makes it possible to ensure 
that COBOL clauses and statements in an OS/VS COBOL source 
program conform to the specified level of either the 1975 or the 
1972 Federal Information Processing Standard COBOL. 

Programming Considerations: At installation time, no flagging, 
NOLVL (which is the system generation default), or flagging at a 
specified FIPS level, LVL=A/B/C/D, can be specified as the 
installation default option. At compile time, the programmer 
can override any of these options by specifying another level of 
FIPS flagging; if NOLVL is specified, however, the option is 
ignored and the default LVL option is used. Through the LANGLVL 
option, the programmer can specify flagging for either the 1972 
FIPS or the 1975 FIPS. 



Migration flagging analyzes COBOL source programs and issues 
informational messages indicating COBOL statements that are no 
longer supported or that are supported differently by the VS 
COBOL II Compiler, Program Number 5668-958. This helps 
programmers migrate programs from OS/VS COBOL to VS COBOL II. 

For information about VS COBOL II, see VS COBOL II General 
Inf ormat i on. 



INTERACTIVE CAPABILITIES 



The Compiler can provide output directed to a TSO or CMS 
terminal. The terminal user can determine the characteristics 
of compiler output to the terminal, such as: 

• Compilation progress, diagnostic messages and compiler 
diagnostics. 

The TERM option orders the compiler, as it processes the 
source program, to issue a progress message, and to issue 
compiler error and warning messages to the terminal — each 
compiler message including the line number of the source 
statement in error and the message text. After all 
diagnostic messages are issued, a message stating the total 
number of statements in error is produced at the terminal. 
Using Edit Mode subcommands, the programmer can retrieve the 
statement by line number and correct the error before 
recompi li ng. 

• The compiler's entire listing data set. 

The PRINT/NOPRINT option allows the programmer to choose 
whether the program listing is to be placed in a data set, 
displayed at the terminal, or suppressed. If the NOPRINT 
option is specified, the compiler does not allocate a 
SYSPRINT file. This saves compilation time and storage. 

Through the NUM option, usei — recorded line numbers in the input 
data set may be substituted for internal statement numbers in 
any diagnostic messages printed on the terminal. 

Display and debugging output from a COBOL program can be 
directed to the terminal, and the ACCEPT statement can invoke 
input from the terminal. 

Note: Additional interative capabilities are provided through 
the separate Program Products TSO COBOL Prompter and COBOL 
Interactive Debug. Both Program Products are described in the 
section on Related COBOL Development Aids. 
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UHEN-CONPILED SPECIAL REGISTER 



LISTER FACILITY 



The WHEN-COMPILED special register makes available to the object 
program the date-and-time compiled constant carried in the 
object module. WHEN-COMPILED provides a means of associating a 
compilation listing with both the object program and the output 
produced at execution time. 



The Lister facility permits the user to obtain a reformatted 
detailed source code listing that contains complete 
cross-reference information at the source level. Each COBOL 
statement is begun on a new line* and indented in a manner that 
makes the logic of the program readily apparent, by highlighting 
level numbers* nested IF statements, etc. Each line of the 
reformatted source listing contains one or more references to 
other source statements, specifying the statement number, and 
indicating the type of reference. 

Thus, when reading the Data Division, the user can identify 
immediately the Procedure Division statements that read, write, 
or inspect a given data item. File descriptions are 
comprehended quickly because of uniform indenting conventions 
that are imposed by the Lister facility. When reading the 
Procedure Division, the user can see references to statements in 
the Data division, showing use of the data item, and also to 
other statements in the Procedure Division, simplifying the 
tracing of program logic. The Lister facility further 
facilitates the tracing of program logic by optionally printing 
the Procedure Division in 2-column format, so that fewer page 
turnings are required, and more logic appears on a page. 
Optionally, the user may also obtain a new source deck that 
reflects the reformatted source listing, with the exception of 
embedded cross-reference information. Figure 2 on page 16 gives 
an example of Lister output. 

The Lister facility also produces a summary listing that 
contains selected statements from the source program, plus a 
condensation of the detailed information from the reformatted 
source listing. The total number of each type of reference for 
each File Description, and for each Section in the Procedure 
Division is shown. 

Performance Considerations: Although use of the Lister facility 
necessarily adds time to the compilation run, the Lister 
facility does not alter the source code. Therefore, such source 
code takes no longer to compile than if the Lister option had 
not been invoked. However, to save time on initial 
compilations, the Lister facility should not be invoked until 
the COBOL source program is known to be substantially free of 
syntax errors. Once an up-to-date reformatted source listing 
and new source deck reflecting the listing is obtained, the 
Lister facility can be omitted on subsequent compilations. When 
large COBOL programs are to be listed and compiled, the user may 
be able to obtain shorter run times by electing to use Lister 
cross-reference information in place of XREF or SXREF. 
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ICENTIF ICATION DIVISION. 

PPCGPAM-IC. GPANTZ. 
ENVIn^N^'F^T DIVISICN. 
CGNFIGUOATIDN SECTICN. 

SGURCE-CO'Pl'TER. ie»'-37-, 
08JECT-CPMPUTEP. IBH-37C. 
INPUT-OUTPUT SECT KIN. 
FILE-CCNTfCL. 

SELECT IS'PUT-eUFPEB ASSIGN TO UR-25'»0R-S-INFILE. 
SELFCT OUTPUT-BUFFER ASSIGN TO UR-llfOS-S-GUTFILE. 
SELECT FILEX-OIAGNOSTICS ASSIGN TO UT-2'fOO-S-XFILE. 
SELECT FILEY-WCRKFILE ASSIGN TO UT-2'»00-S-YFILE. 
SELECT FILEZ-WOPKFILE ASSIGN TO UT-2'iOO-S-ZFILE. 
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GRANTZ 






10/06/^3 PAGE 2 


19 


DATA CIVISICN. 






^^21 


FILE SECTION. 




^^<5iE .?18E,323R 


FO INPUT-BUFFER 






LABEL RECORDS APE CHITTED. 




^« 
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01 INPLT-t/kRD. 




333U 


24 


02 INPLT-hYTE 


OCCURS 7: TlfF. S 


INJEXtO 3Y 3373, 6590, fc64U,6750,<7P0,6310, 6840,6870, 6900,6930,6960, A 1^ 
^32 2C,33^C,'•''7^,'.5ox,^^c:,6^4x,f•^f•0,^75X,'.78X,681X,684X,B f^ 


25 


INPUT-INDEX 


«>ir X. 


2b 

* 
* 


02 FILLER 


PIC X(P). 



o 
c 



O Reference to FD statement number. 

O FD referred to by SELECT statement. 

O SELECT sUtement: (E) denotes Environment 
Division reference. 



O Procedure Division statement; (R) denotes that 
sUtement 328 reads this data item. 

0Data item changed by statement 322. 

OFootnotes for additional references at 
bottom of this page. 
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315 PROCEDURE CIV IS ION. 



START-JCB. 

OPEN INPUT INPUT-BUFFER OUTPUT CUTPUT-BU«=FER, 

F ILEX-DIAGNOSTICS, F ILE Y- WORKFI LE 

FILE2-WCRKFILE. 
MOVE SPACES TO BUFCER-ARE A, DIAGNOSTIC 
SET INPUT-INDEX, PROC-INOEX, LABEL-INPPX 

LABEL-INOEX-END, DICT-INDEX, 

DICT-INDEX-END TO 1 
HCVE TO SEQ-NUMBFR. 
MOVE SPACES TC DIAGNCSTIC. 

GET-CARD. 338G,658P,779P, 12<» 2P, 1298P, 1354P 
READ INPLT-BUFFER AT END 

GO TO END-OF- INPUT. 
HOVE SPACES TO OUTPUT-PRINTER. 
ADD 1 TO SEC-NUMBER 

HOVE SEQ-NUMBER TO SE0UENC9-NUMBER . 
MCVE INPUT-CARD TO OUTPUT-PECCRD 
HOVE SPACES TO BUFFER-AREA 
WRITE OUT PUT-PP INTER. 
SET INPLT-INDEX TC 1. 
IF INPUT-BYTE (1» EQUAL TO •*• 

GC TO GET-C/RD. 

GET-CARD-EXIT. e58T, 779T, 1292T, 129flT,1354T 
^XIT. 





363 




364 




3^*; 




3 66 




3b7 


ER, 21,29 


36R 


38,53 

**s. 33,39 
^25,175,214 


370^*^ 

371 

372 


215, 142 


373 


143 




^ 39 


3 75 




3 76 


?1 


377 


797 


37H 


30 


37° 


A 


380 


A, 32 


381 


23,34 


382 


33 




30 


3 83 


25 


38'" 


24 


« 


327 


3 85 




33A 



ELSE 

GC TO PROCESS -alph-oata-afray no 

FLSP 

NEXT SENTFNCF. 
IF SWITCHl EQUAL TO 
MOVE 1 TD SWITCHl 
IF EIGHT-BYTP NOT E0J4L TO •?ATA-PIV' 

GC TO OIAG-BAD-INDIJT 
ELSE 

GO TO P E AD-DAT A-WORn. 
IF FLAG2 EQUAL TO 1 4 NO NOT PES EaVED-WORD AND 
NOT ASOAY 
"OVF 

•ONLY BFSCCVFD WOPQS MAY APPEAR IN Cr>L 1. ASSUME 



4^8 



77 

117 
1361 

343 

113,121 

123 



• C0L2.« Trv TEXTIA 
PERFORM OIAG-END 
IF SWITCH2 »'nT GPEATP* TH»N 
GP TO NO-DATA-TYPE. 
TF ACPflY AND SWITCH2 EQUAL TO 

GO TO NO-OATA-TVPE. 
IP RESF»VEO-WnPO AND PLAG2 NOT COJAL TD 1 
PERFORM DIA3-3xS-i<nR0-NCT-C0Ll THRU 
DIAG-cXIT. 
IF Ppnc-DIV 

GO TO FINISH-DATA-DIV. 

IF NUM-DATA 

GO TO PROCESS-NUM--)ATa. 



4<> 

1381 

78 

1308 

123,78 

13Cn 

121,110 

13"D 

1386 

126 

48"; 
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Note two-column Procedure Division listing. 
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QData items. 

© Footnoted data item. 

Paragraph Gone to (G) and Performed (P) 
by referenced statements. 



<|ft Nested IFs indented progressively. 

CDFootnote. 

Deprocedure Division statements referencing 
this data item. 



VERB PROFILES 



The verb profiles option produces a list of all verbs contained 
in the COBOL source program. Each different COBOL verb in the 
program is shown* followed by a count representing the number of 
times it appears in the source program. Optionally* the count 
is followed by the associated statement numbers. 

Figure 3 gives an example of verb profile output. 



VERBS 


OCCURS 


REFERENCE^ 


CLOSE 


000001 


000081 


GENERATE 


000001 


000078 


GO 


000002 


000077 000079 


INITIATE 


000001 


000069 


OPEN 


000001 


000068 


READY 


000001 


000067 


RESET 


000001 


000074 


RETURN 


000001 


000077 


SORT 


000001 


000070 


STOP 


000001 


000075 


TERMINATE 


000001 


000080 



Figure 3. Example of Verb Profile Output 



Note 



Statement number references can be requested optionally in 
addition to the verb count. 



EXECUTION-TIME STATISTICS 
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tions of the COBOL source program, 
grammer in debugging by providing 
ns of a program have been executed, 
ct program* a count is maintained 
program. Just prior to program 
ts the accumulated execution count 
f the procedure in which it appears* 
ent in which it appears. Figure 4 
of Execution-Time Statistics output. 



18 OS/VS COBOL Compiler and Library General Information 



Line-by-line Analysis 


t 












STATEMENT 


PROCEDURE NAME 


L VERB ID 
B 




VERB COUNT 




PERCENT 


119 


PAGE-HEAD-RTN 














120 




USE 












121 


PAGE-HEAD-RTN-SWITCH 














122 




GO 








6 


2.343 


123 


PAGE-HEAD-RTN-TEST 














124 




IF 








5 


1.953 


124 




MOVE 








2 


.781 


125 




ELSE 












125 




MOVE 








3 


1.171 


126 




MOVE 








3 


1.171 


127 




GO 








5 


1.953 


128 


PAGE-HEAD-RTN-ALTER 














129 




ALTER 








1 


.390 


130 


PAGE-HEAD-RTN-SUPPRESS 














131 




MOVE 








1 


.390 


132 


PAGE-HEAD-RTN-EXIT 














133 




EXIT 








6 


2.290 


136 


OPEN-FILES 














136 




OPEN 








1 


.390 


137 




INITIATE 








1 


.390 


138 


READATA 














139 




RFAD 








73 


28.515 


139 




GO 








1 


.390 


mo 




GENERATE 








72 


28.125 


141 




GO 








72 


28.125 


142 


COMPLETE 














143 




PERFORM 








1 


.390 


144 




TERMINATE 








1 


.390 


145 




CLOSE 








1 


.390 


146 




♦ STOP 








1 


.390 


X 

Last Block (this coliimn contains an 


asterisk (♦) for 


the last block in 


each 






subroutine) 














' Summery Analysis 














VERB 


STATIC COUNT DYNAMIC 


COUNT VERB EXECUTIONS 


PERCENT 






ALTER 


1 




1 




.390 






CLOSE 


1 




1 




390 






EXIT 


1 




6 


2 


.343 






GENERATE 1 




72 


28 


.125 






GO 


4 




84 


32 


.812 






IF 


1 




5 


1 


.953 






INITIATE 1 




1 




.390 






MOVE 






9 


3 


.515 






OPEN 






1 




.390 






PERFORM 






1 




.390 






READ 






73 


28 


.515 






STOP 






1 




.390 






TERMINATE 1 




1 




.390 







Figure 4. Example of Execution-Time Statistics Output 
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BACKGROUND SYMBOLIC DEBUG 



This feature reduces program development time by making 
debugging information available in a COBOL format instead of a 
hexadecimal 'dump format. No source language changes are needed; 
the debugging information is requested through object-time 
control cards. Thus, multiple debugging runs can be made 
without recompi lati on. 

Uhen a program terminates abnormally, the user receives a 
COBOL-formatted map of his Data Division. Each data area is 
identified by its source name, and its contents are easily 
readable. The user can also request snapshots of the Data 
Division at any point during program execution. 

If two or more COBOL programs are link-edited together and one 
of them terminates abnormally, the user is provided with such 
COBOL-formatted information for the program causing termination 
and its callers, up to and including the main program. Abnormal 
termination information is provided in the following partsJ 

1. Abnormal termination message — including the program-name, 
and the COBOL sequence number of the statement and of the 
verb being executed. 

2. An Optional Flow Trace — if requested, a time-sequenced trace 
of the names of the last "n" COBOL procedures executed. 

3. Selected areas in the Task Global Table. 

4. COBOL-formatted map of the Data Division including? 

a. Working-Storage Section 

b. Linkage Section 

c. For FDs, the data record and file status summary 

d. For RDs, the report line, page counter, and line counter 

e. For SDs, the sort record 

f. For CDs, the CD itself in its implicit format, and the 
area containing the message data currently in the buffer 

Figure 5 on page 21 gives portions of a sample program compiled 
using the Background Symbolic Debug feature, and shows an 
example of the abnormal termination information that can be 
requested. 

At compile time, an option tells the compiler to create a debug 
file, an additional data set which contains descriptions of data 
items (the dictionary) and other debugging information. At 
object time, this debug file is required online, and symbolic 
debug output is requested through control cards. 

Several COBOL programs link-edited together must have separate 
debug files if they each use the Background Symbolic Debug 
feature. This feature automatically provides optimized object 
code. The user can request that source sequence numbers be 
checked and corrected. Ulhen the user requests that dynamic 
snapshots be taken, they can be specified at a STOP RUN, EXIT 
PROGRAM, or GOBACK statement. In this case, an "end-of-job" 
snapshot results. 

Note: The separate Program Product OS COBOL Interactive Debug 
is also available to the TSO or CMS COBOL user. 
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Portions of TESTRUN source program, compiled using the Symbolic Debugging Feature 



00038 000370 WORKING-STORAGE SECTION. 



Field B does not contain 
valid COMPUTATlONAL-3 
data. 



00055 000530 

00056 000535 

00057 000540 



01 RECORDA. 

02 A PIC S9(4) VALUE 1234. 

02 B REDEFINES A PIC S9(7) COMPUTATIONAL- 3. 



Therefore, source state- 
ment 00069 is in error. 



00059 000550 PROCEDURE DIVISION. 



00066 000620 STEP-1. OPEN OUTPUT FILE-1. MOVE ZERO TO KOUNT, NUMBR. 

00067 000630 STEP-2. ADD 1 TO KOUNT, NUMBR. 

00068 000640 MOVE ALPHA (KOUNT) TO NO-OF-DEPENDENTS. 
'00069 000650 COMPUTE B = B +1. 



Portions of symbolic formatted dump produced at abnormal termination. 



Message giving source . . 
statement and verb number 
causing abnormal iermination 



Portion of Data Division dump 

Data present in RECORDA. 

Fields A & B. (Invalid numeric 
positions in fleld B shown as 
asterisks (*). 

ND-OT = numeric display overpunch 
sign trailing 

NP-S = numeric padced decimal- 
signed 




COBOL ABEND DIAGNOSTIC AIDS 



PROGRAM TESTRUN LAST PSW BEFORE ABEND ... 

COMPLETION CODE 0C7 

LAST CARD NUMBER/VERB NUMBER EXECUTED — CARD NUMBER 000069/VERB NUMBER 01. 



000055 01 RECORDA 
003E40 

003E40 000056 02 A 

003E40 000057 02 B 



(HEX) F1F2F3C4 
ND-OT +1234 
NP-S +*1*2*3* 



Note: In the complete dump, an explanation of the data codes used and selected areas of the TGT are printed after the statement number message and before 
the Data INvision dump. 



FL0I4 TRACE 



The floM trace option alloMS the user to receive a formatted 
trace (that \sr a list containing the program identification and 
statement numbers) corresponding to a variable number of 
procedures executed prior to an abnormal termination. The 
number of procedures to be traced is specified by the user. The 
flow trace option requires no source language changes. 

A flow trace is printed only in the event of an abnormal 
termination. The number of procedures to be traced may be 
specified at compile time or execution time, and the output, 
when running under TSO, may be directed to the terminal. 



SYNTAX-CHECKING COMPILATION 



With the OS/VS COBOL Compiler, the user can request a 
syntax-checking compilation, through the PARM field of the EXEC 
control statement. Such compilations can be unconditional or 
conditional. 

Uihen unconditional syntax-checking is requested, the compiler 
scans the source text for syntax errors, and generates the 
appropriate error messages, but does not generate object text. 

Uihen conditional syntax-checking is requested, a full 
compilation is produced if no messages or only W- or C-level 
messages are generated; if one or more E-level or D-level 
messages are generated, no object code is produced. 

Syntax-only compilation can considerably reduce compile time. 
Unconditional syntax checking can reduce compilation time more 
than conditional syntax checking. 

Programming Considerations: Nhen object text is not generated, 
the following compile-time options are suppressed^ LOAD, XREF, 
SXREF, CLIST, NOSUPMAP, PMAP, DECK, VBSUM, VBREF, COUNT; if 
optimized object code is requested, the object code is not 
produced; if background symbolic debugging is requested, the 
symbolic debugging option is suppressed. 

Unconditional syntax checking is assumed if all of the following 
compile-time options are specified^ 

NOLOAD NOCLIST SUPMAP 

NODECK NOMAP NOXREF/NOSXREF 

A full compilation — including error messages, object text (if 
requested), and all other specified (or default) options — is 
produced if: 

• Neither unconditional nor conditional syntax-checking is 
speci f i ed 

• Unconditional syntax-checking is not assumed 



STATEMENT NUMBER OPTION 



This option facilitates debugging by providing information about 
the statement being executed in the event of an abnormal 
termination. At abnormal termination, the statement number is 
printed; if there are two or more verbs in the source statement, 
the verb being executed is identified. The program containing 
the statement is also identified. This option requires no 
source language changes. 

Performance Considerations: Five additional bytes are generated 
for each procedure-name in the program, and 5 to 17 additional 
bytes are generated for each verb. 
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EFFICIENT OBJECT-TIME PERFORMANCE 



OPTIMIZED OBJECT CODE 



The object code generated by the OS/VS COBOL Compiler can be 
optimized. Ulhen optimization is requested^ the resulting object 
program contains fewer machine instructions than it would 
contain if optimization had not been requested? programs are 
divided into 4K-byte procedure blocks; register assignment is 
made more efficient than without optimization. 

Use of the feature results in a considerable reduction in use of 
object program storage. The reduction in size is dependent upon 
source program size and content. In general* the larger the 
number of source statements, branching statements, and 01-level 
data names, the larger the percentage of reduction. 

Programming Considerations^ Optimization is requested at compile 
time through the OPT parameter in the PARM field of the EXEC job 
control statement. 

Optimized object code is automatically provided when Background 
Symbolic Debug is specified; it may be requested when the flow 
trace or statement number options are requested. 



COBOL LIBRARY MANAGEMENT FACILITY 



The OS/VS COBOL library management facility allows a single copy 
of the COBOL library subroutines to be shared by all currently 
executing COBOL programs, even in different partitions or 
regions. (Uhen the feature is not specified, all programs and 
subprograms, plus their required COBOL subroutines, are 
link-edited into one load module for execution in one 
partition/region. Thus, many copies of one COBOL subroutine may 
be resident in virtual (or real) storage at one time, one in 
each partition/region.) 

Ulhen the library management facility is used, the COBOL library 
subroutines may be wholly or partially resident in the VS2 link 
pack area (LPA) or in the VSl resident reusable routine area 
(RRR), or they may be resident within each partition/region. 
(Some routines cannot be so placed — such as the subroutine used 
for i ntraregi on/i ntraparti ti on communication, the queue 
structure description routine, a STOP RUN routine, a special 
DISPLAY routine, etc.) The actual physical location of these 
routines is not apparent to the executing program. 

The primary advantage in placing the COBOL library subroutines 
in the LPA/RRR area is the economy it allows in virtual storage 
allocation. Though the LPA/RRR area must be made larger to 
accommodate all the required COBOL library subroutines, it is 
pageable, and each region/partition no longer requires its own 
copy. 

Programming Considerations: To be able to place the COBOL 
subroutines in the LPA/RRR area, the user must execute a utility 
program to add two members to the system parameter library. The 
members are'' 

1. A User List of all names and all aliases for those COBOL 
subroutines the user wishes to place in the LPA/RRR area. 

2. A Linkage Routine that allows the concatenation of the 
system link library with the COBOL subroutine library, or 
with a private library containing selected COBOL 
subroutines. (Note that, if the user wishes to place 
selected COBOL subroutines into a private library, a utility 
program must be executed to catalog that library.) 
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At initial program loading (IPL) time» the user identifies the 
user list to the system. The system then uses the 1 i nkag e 
routine to place the listed COBOL subroutines into the LPA/RRR 
area. 

The COBOL library management facility is invoked at compile-time 
through the FARM field of the EXEC job control statement. 

In any given region or partition* if the COBOL library 
management facility is used at all » it must be used by the main 
program and by all subprograms in that region or partition. 
Otheruise/ multiple copies of COBOL library subroutines may be 
resident at the same time and cause unpredictable results. 

For a region or partition not using the COBOL library management 
facility* the COBOL object program and the COBOL library 
subroutines it uses are link-edited together into one load 
module. 

If COBOL library subroutines that were not loaded into the 
LPA/RRR area at IFL time are required for execution of the 
program, and the COBOL library management facility is being 
used* then? 

• For a main program* such subroutines are loaded into the . 
region/partition before execution of the main program. 

• For a subprogram* those required subroutines that have not 
yet been loaded are loaded into the region/partition 
directly before subprogram initialization. Thus* there is 
only one copy of the needed subroutines resident in each 
region/partition. 

For the dynamic CALL and CANCEL functions* the COBOL library 
management facility is an implied required feature. (See 
"Dynamic Subprogram Linkage.") 

Programs written and compiled for the IBM OS Full American 
National Standard COBOL Program Product Compilers are compatible 
with OS/VS COBOL without recompi lat i on* whether or not they use 
the COBOL library management facility. 



8YSTEn/370 INSTRUCTION GENERATION 



System/370 instruction generation is automatic. These 
System/370 instructions replace object-time subroutines and 
instructions that previous compilers generate under 
System/360 — including routines and instructions to handle 
decimal arithmetic scaling (where operands have a different 
number of decimal places) and rounding. System/370 support also 
gives much improved processing of variable-length fields. 

Because System/370 does not require boundary alignment for 
COMPUTATIONAL* COMPUTATIONAL-1 * and COMPUTATIONAL-2 items* no 
internal moves are generated for items that are not 
SYNCHRONIZED. 

Performance Considerations: Space occupied by an OS/VS COBOL 
program is decreased* particularly when calls to object-time 
subroutines are no longer necessary. Such calls are always 
generated in System/360 for variable-length moves and 
comparisons. If there is at least one variable-length 
alphanumeric move in the source program* Sy5tem/370 support 
reduces the size of the object program by at least 484 bytes* if 
there is also at least one variable-length alphanumeric 
comparison* System/370 support reduces the size of the object 
program by at least an additional 498 bytes. 
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DYNAMIC STANDARD BLOCK SPECIFICATION 



For queued sequential data sets^ the RECFM subparameter of the 
DD statement may optionally be specified at object time^ 
permitting the programmer to specify the standard block option 
(for data sets with recording mode F) or the track overflow 
option for the data set. (The track overflow option is 
equivalent to writing an APPLY RECORD-OVERFLOW clause in the 
source program.) Use of the standard block option (particularly 
for direct-access devices having the Rotational Positional 
Sensing feature) results in significant I/O performance 
improvement . 

Fixed-block single volume data sets as created by COBOL are 
standard (except possibly when extended using the DISP=MOD 
parameter of the DD statement). Mult i volume data sets as 
created by COBOL are standard if the volume switching occurs 
through automatic end-of-volume procedures. If» however* the 
programmer issues a CLOSE REEL/UNIT statement, then the number 
of logical records in the volume must be an integral multiple of 
n» where a BLOCK CONTAINS n RECORDS clause (or an equivalent 
BLOCK CONTAINS-CHARACTERS clause) has been specified in the 
source program (that is» no truncated blocks exist). The 
standard block option and the track overflow option are mutually 
exclusi ve. 
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PRODUCTIVE COMPILE-TIHE PERFORMANCE 



SPEEDY SORTED CROSS-REFERENCE 



If an alphabetized cross-reference list is requested^ the OS/VS 
COBOL Compiler produces a cross-reference dictionary in Mhich 
data-names» file-names» and procedure-names are sorted 
alphanumerically into tMo groups. One group consists of 
data-names and file-names; the second consists of 
procedure-names. Each is preceded by an appropriate subheading, 

This option is requested at compile-time via the FARM field of 
the EXEC job control statement. 

Note: A more comprehensive reformatted listing of the entire 
COBOL source program can be obtained by invoking the Lister 
facility. The listing thus produced contains embedded 
cross-reference information and simplifies tracing program 
logic. (See the preceding description of the Lister facility.) 
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OS/VS COBOL SUBROUTINE LIBRARY 



The OS/VS COBOL Subroutine Library is a partitioned data set 
residing on a direct-access device* containing the COBOL 
object-time librat*y subroutines in load module form. The OS/VS 
COBOL Subroutine Library is designed for use uith object modules 
produced by the OS/VS COBOL Compiler. The OS/VS COBOL 
Subroutine Library is available as a separate Program Product. 
Ulhen more than one copy of the Subroutine Library is needed^ 
this Program Product must be ordered. 

COBOL library subroutines perform execution-time operations 
requiring either repetitive or extensive generated code. It is 
inefficient to place such code inline in the object module each 
time it is needed. Instead* library subroutines are used to 
reduce the size of the object module. Any library subroutines 
required to execute the problem program are either combined uiith 
the object module at link-edit time or are dynamically fetched 
during program execution. 

To save even more virtual storage* the OS/VS COBOL library 
management facility alloMs a single copy of such COBOL 
object-time subroutines to be shared by problem programs in 
different partitions or regions. This is controlled by the user 
by placement of modules through a compile-time option. See the 
section describing the COBOL Library Management Facility. 

There are several major categories into Mhich the object-time 
subroutine library can be classified^ 

Input/Output (excluding VSAM) 

Conversion 

Arithmetic verbs 

Other verbs 

Sort/Merge interfaces 

Checkpoi nt/Restart 

Segmentation feature 

Communicati ons 

Debugging 

VSAM 

3886 processing 

The OS/VS COBOL Subroutine Library contains all subroutines 
needed to support the neu features of the OS/VS COBOL Compiler. 
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COMPATIBILITY 



DATA SET COMPATIBILITY 



The OS/VS COBOL Release 2 Compiler provides support for indexed^ 
sequential^ and relative file capabilities through VSAM Release 
2 as Mell as OS Full American National Standard indexes and 
relative file capabilities. 

The VSAM compatibility allous the user to perform all equivalent 
ISAM-like functions on VSAM data sets using existing COBOL ISAM 
programs. When ISAM data sets are converted to VSAM format* the 
user can continue present operation with only minor JCL changes. 
The resulting VSAM data set usually requires less frequent 
reorganization than the ISAM data set» because VSAM uses free 
space within the data set for updating. 

Data set compatibility (except for previously described VSAM 
data sets) exists between OS/VS COBOL and all versions of IBM OS 
Full American National Standard COBOL. 

DOS/VS and OS/VS VSAM compatibilities are explained in DOS/VS 
Access Method Services . Common COBOL VSAM compatibilities do 
not affect these compatibilities. 



PROGRAMMING COMPATIBILITY 



For the most part» a single source program can utilize both 1974 
Standard language elements and 1968 Standard language elements. 
When 1968 Standard language elements are used* the OS/VS COBOL 
Compiler gives results equivalent to those given by the IBM OS 
Full American National Standard COBOL compilers. For a few 
language elements* the two standards conflict; for these items* 
a compiler option is provided so that the programmer can 
instruct the compiler which language interpretation to use. 

OS/VS COBOL incorporates all language elements from IBM OS Full 
American National Standard COBOL with two exceptions^ The 
MESSAGE COUNT clause replaces the QUEUE DEPTH clause* and the 
ACCEPT MESSAGE COUNT statement replaces the IF MESSAGE 
statement . 

Most programs written for previous versions of the IBM OS Full 
American National Standard COBOL compiler can be compiled on the 
OS/VS COBOL Compiler without modification* provided that new 
OS/VS COBOL reserved words have not been specified as 
usei — defined names* the QUEUE DEPTH clause is not used* and the 
IF MESSAGE statement is not used. (A complete list of OS/VS 
COBOL reserved words is included in IBM VS COBOL for OS/VS.) 



OBJECT PROGRAM COMPATIBILITY 



Programs written and compiled for the IBM OS Full American 
National Standard COBOL Program Product Compilers are compatible 
with OS/VS COBOL without recompi lat i on* whether or not they use 
the COBOL library management facility. 
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CMS COMPATIBILITY 



Under the CMS component of VM/370» the OS/VS COBOL Compiler can 
accept and compile any COBOL source program that it can accept 
and compile under OS/VSl and 0S/\/S2. The object code generated 
under CMS can be executed under control of OS/VSl and 0S/VS2. 
With restrictions listed in the following paragraphs* the object 
code can also be executed under CMS. The compiler is not auiare 
of the CMS environment* and does not flag or identify the 
restricted usage for any operating system. 



Comp lie-Time CHS Restrictions 



The "(nn)" subparameter of the FLOW option must bo specified; it 
is not optional. The "^" and "dsname" subparameters of the 
PRINT option* and the "dsname" subparameter of the LIB option 
must not be specified. 



Execution-Time CMS Restrictions 



Indexed files (BISAM and QISAM) are not supported. Various 
clauses and statements associated with these access methods 
are therefore invalid: RECORD KEY* TRACK-AREA* START* APPLY 
REORG-CRITERIA* and APPLY CORE-INDEX. 



There is no Checkpoint/Restart feature. 
RERUN clause is not supported. 



Therefore, the 



The positioning options of the OPEN (EXTEND) and CLOSE 
statements are ignored. 

There is no mult i volume data set support. Therefore, the 
CLOSE statement with the REEL or UNIT option is invalid. 

There is no TCAM support* however* the BSAM test facility 
will function for single level queues (i.e., not for queue 
structures) . 



There is no Sort/Merge feature, 
not supported. 



Therefore* the SORT verb is 



None of the user label handling functions are supported. 
Therefore* the label handling format of USE is invalid. The 
data-name option of the LABEL RECORDS clause is invalid. 

ASCII-encoded tape files are not supported. 

Spanned recording mode is not available under QSAM, BDAM, 
and BSAM. This means that the S-mode default (block size 
smaller than record size) cannot be specified, and that the 
RECORDING MODE IS S clause cannot be specified. 

Neither the LISTING nor the SYSUT5 data set can be used 
under other systems. 

No support for the 3886 Optical Character Reader is 
provi ded. 

Creating direct files is restricted as follows: 

— For U or V recording modes, access must be sequential. 

For ACCESS IS SEQUENTIAL, track identifier must not be 
modified. 

— The XTENT option of the FILEDEF command must be 
specified to indicate the number of logical records to 
be wri tten. 

CALL... ON OVERFLOW statement is not available. 
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No status key information on duplicate record using VSAM 
uii th alternate indexes. 

The GIVING option of the USE statement in the error 
declarative section is not supported for VSAM data sets. 

The AIXBLD execution-time option is not supported. 
Therefore* the dynamic building of alternate indexes and the 
dynamic completion of VSAM relative record data sets (RRDS) 
record information is not supported. 
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SYSTEM REQUIREMENTS 



Operati ng 

System 

Needed 


OS/VSl^ 

0S/VS2 (with or without ISO)* 
MVS/XA (24-bit mode only) 
CMS component of VM/370* 


Compi le-time 
Machine 
Requi rements 


Any System/370 model that supports OS/VS or CMS* 
Disk Uork File Tape or Disk Uork File 

SYSUTI (required) SYSUT2 — SYSUT4 (required) 

SYSUT5 — if Symbolic Debug is used 
SYSUT6 — if FIPS flagger is used 


Object-time 
Machi ne 
Requi rements 


Any System/370 model that supports OS/VS or CMS* 

One Work File (tape or disk) when Symbolic Debug is used 
Input/output devices used by the object program 


Virtual 
Storage 


128K bytes for Release 2 of the Compiler 



Notes 



Release 2 of VSAM is required for execution of COBOL object 
programs that use VSAM alternate index» or relative record. 
Use of VSAM file status feedback when creating duplicate 
alternate record keys or use of QSAM file EXTEND requires at 
least OS/VSl Release 6.0, 0S/VS2 Release 3.7 (MVS) plus SU8> 
or 0S/VS2 Release 1.7 (SVS) Extended. TCAM Mod Level 5 is 
required if the Communications Feature is used. 

For CMS restri ctions» see the CMS Compatibility section. 
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OS/VS COBOL LANGUAGE BASE 



OS/VS COBOL is designed according to the specifications of the 
highest levels of the following 1974 Standard modules: 

NUCLEUS — provides improved internal processing capabilities. 
Extended data manipulation statements* enhanced arithmetic 
capabi li ti esy user-specified collating sequences* and eased 
data grouping rules &re all provided. 

TABLE HANDLING — a convenient method for searching a table is 
provided uihich alloMs the definition of tables and making 
reference to them through subscripts* mixed indexes* and 
literal subscripts. 

SEQUENTIAL I-O — implements the VSAM ESDS processing* alloMs 
sequential files to be extended* and provides added page 
placement capabilities for physical sequential files 
destined for printed output. 

RELATIVE 1-0 — alloMs the user to specify relative record 
file organization — the records in such a file are stored and 
retrieved in the order of their relative record numbers. 
Storage and retrieval can be sequential or random. Relative 
1-0 is implemented through the VSAM RRDS capabilities. 

INDEXED 1-0 — gives added indexed file processing 
capabilities through VSAM KSDS processing. Records are 
stored according to some prime record key; they Can be 
retrieved through the prime record key or through alternate 
record keys. 'Storage and retrieval can be sequential or 
random. 

SORT-MERGE — gives the capability of ordering the records in 
one or more files (sorting) and of combining two or more 
identically ordered files (merging). The sort or merge can 
be upon either the EBCDIC or ASCII collating sequence* or 
upon a user-specified collating sequence. 

SEGMENTATION — allows the user to specify object program 
overlay requirements. 

LIBRARY — allows the user to replace all occurrences of a 
given library text with alternate text during compilation. 
Multiple COBOL source libraries can be specified. 

DEBUG — provides the capability of monitoring object program 
execution through Declarative procedures* special debugging 
lines (executed only when i n debugging mode)* and a special 
register DEBUG-ITEM which dives specific information about 
execution status. 

INTER-PROGRAM COMMUNICATION — allows a COBOL program to 
communicate With one or more other programs through 
transfers of control and access to common data ite^s. 

COMMUNICATION — provides the ability to communicate through a 
Message Control Program (MCP) with local or remote 
communication devices* and to access* process* and create 
partial and complete messages. 
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OS/VS COBOL also supports the highest levels of all eight 
modules of 1968 Standard COBOL. (Language in the 1968 Standard 
that differs from 197^ Standard COBOL is considered an extension 
to the 1974 Standard.) These eight modules are* 

NUCLEUS— defi nes the permissible character set and the basic 
elements of the language contained in each of the four COBOL 
divisions. Identification Division* Environment Division* 
Data Division* and Procedure Division. 

TABLE HANDLING — allouis the definition of tables and making 
reference to them through subscripts and indexes. A 
convenient method for searching a table is provided. 

SEQUENTIAL ACCESS — allows the records of a file to be read 
or written in a serial manner. The order of reference is 
implicitly determined by the position of the logical record 
i n the f i le. 

RANDOM ACCESS — allows the records of a file to be read or 
written in a manner specified by the programmer. 
Programmmei — specified keys control successive references to 
the file, 

SORT — provides the capability of sorting files in ascending 
and/or descending order. This feature also includes 
procedures for handling such files both before and after 
they have been sorted. 

REPORT WRITER — allows the programmer to describe the format 
of a report in the Data Division* thereby minimizing the 
amount of Procedure Division coding necessary. 

SEGMENTATION — allows large problem programs to be split into 
segments to be designated as permanent or overlayable 
storage. This assures more efficient use of storage at 
object time. 

LIBRARY — supports the retrieval and updating of prewritten 
source program entries from a user's library, for inclusion 
in a COBOL program at compile time. The effect of the 
compilation of library text is as though the text were 
actually part of the source program. 

In addition* OS/VS COBOL includes IBM extensions that provide 
programmer convenience and additional processing capabilities. 
The major IBM extensions are' 

PASSWORD CLAUSE — provides file security for physical 
sequential and VSAM files. 

TRANSFORM STATEMENT — provides easy translation capabilities 
from one collating sequence to another. 

ENTRY STATEMENT — gives the user the ability to specify 
alternate entry points in a called program. 
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RELATED COBOL DEVELOPHENT AIDS 



TSO COBOL PROMPTER 



PROMPTER FUNCTIONS 



In addition to the program development features included within 
the OS/VS COBOL Compiler and Library itself > there are two 
related IBM Program Products* available under TSO» that greatly 
facilitate program development. Both reduce program turnaround 
time and increase programmer productivity. These Program 
Products are! the TSO COBOL Prompter and COBOL Interactive 
Debug. 

Both &re described in IBM OS COBOL Interactive Debug and (TSO) 
COBOL Prompter* General Information . 

The following discussion describes how these Program Products 
can be used with OS/VS COBOL to make effective use of all three. 



The TSO COBOL Prompter makes possible conversational OS/VS COBOL 
compilations from a terminal. The Prompter functions exactly as 
its name implies^ if the terminal user has omitted necessary 
compilation information* or has entered such information 
incorrectly* the Prompter asks for the correct information. 
This saves time* effort* and expense* because* at one terminal 
session* the OS/VS COBOL program can achieve results that might 
take several batch processing runs. 



• Accepts terminal input — including optional compilation 
parameters and the source data set name 

• Analyzes the input and prompts the terminal user 

• Dynamically allocates data sets — both those required by the 
Compiler* and any that are optional 

• Builds option and ddname lists for the Compiler 

• Invokes the Compiler* supplying any usei — omitted items 

During a terminal session* the user will receive both 
informational and prompting messages. 

Prompting messages ask the user to correct erroneous compilation 
information. When the information is corrected* the terminal 
session resumes. 

The user can also request assistance from the Prompter in using 
the Prompter itself. 
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COBOL INTERACTIVE DEBUG 



COBOL Interactive Debug greatly simplifies the debugging of 
OS/VS COBOL object programs by providing facilities which make 
any error readily apparent and easily correctable. COBOL 
Interactive Debug is available under the ISO option of 0S/VS2 
and under the CMS component of VM/370. 

During one session at the terminals without changing source code 
and without recompi lat i on> the user can dynamically trace the 
path of program flow, temporarily alter the logic flow of the 
program, execute and reexecute portions (or all) of the object 
program using different data values, and inspect the contents of 
data items at any selected point in the program. Many other 
features are also available. The result is that one terminal 
session can take the place of many batch debugging runs; this 
saves both machine time and programmer time, and speeds up 
program development. 



INTERACTIVE DEBUG FUNCTIONS 



The Interactive Debug user can dynamically monitor the execution 
of his COBOL program from a terminal. As execution of the 
object program proceeds, the user, through the specification of 
Interactive Debug subcommands, can dynamically^ 

• Establish breakpoints at which program execution i s to be 
unconditionally suspended and control returned, and remove 
breakpoints already established. 

• Establish conditional breakpoints which are effective only 
when certain conditions are met. Such conditions might be, 
for example, the debug monitor detecting a change in value 
of a data field, or, a valid relational test involving two 
data fields or a data field and a literal. 

• Specify that at a breakpoint certain actions will 
automatically take place (for example, changing the value of 
a data item), after which execution will automatically be 
resumed (that is, patch the code). 

• List the active breakpoints. 

• Resume execution at a specified source procedure-name. 

• Trace the execution of the object program by requesting a 
display of the names or line numbers of all source 
procedures through which control has passed. 

• Display selected COBOL source statements. 

• List the status of files in the program. 

• Display/compare/modify the contents of data items in the 
COBOL program. 

• Obtain a system dump of the problem program region. 

• Request information about the function, syntax, or operands 
of the Interactive Debug subcommands. 
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